home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 April / Chip CMCD0400.iso / SOFTWARE / Demo / InfoPulse / GateKeeper / gk3full.exe / data1.cab / ConfigSite_Files / services / EditDHCPSubnest.agp < prev    next >
Encoding:
Text File  |  1999-06-17  |  5.3 KB  |  217 lines
  1. <html>
  2. <head>
  3. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  4. <meta NAME="Author,Design" Content="GateKeeper Team; gatekeeper@infopulse.net">
  5. <meta NAME="Copyright" Content="Infopulse; www.infopulse.net">
  6. <title>Empty</title>
  7. </head>
  8.  
  9.  
  10.  
  11. <body bgcolor="#FFFFFF" text="#000000" link="#0000FF" vlink="#800080">
  12.  
  13. <p><big><strong><font face="Arial">Subnet</font></strong></big></p>
  14. <p><big><strong><font face="Arial"><%Request.Write(Request.ReqParam("identifier"))%></font></strong></big></p>
  15.  
  16.  
  17. <%
  18.     
  19.     
  20.     
  21.     if Request.ReqParam("action") = "Properties" Then
  22.         EditSubnet
  23.     End if
  24.     
  25.     if Request.ReqParam("action") = "Delete" Then
  26.         ComDhcp.DeleteSubnet Request.ReqParam("identifier")
  27.         If Err.Number = 0 Then 
  28.             Response.Redirect("/services/EditDHCP.agp")                    
  29.         End If
  30.     End if
  31.  
  32.     if Request.ReqParam("action") = "DHCP Options" Then
  33.         If Err.Number = 0 Then 
  34.                 Response.Redirect("/services/AdvanceSubnet.agp?identifier=" & Request.ReqParam("identifier"))
  35.         End If
  36.     End if
  37.  
  38.     if Request.ReqParam("action") = "Add Reservation" Then
  39.         If Err.Number = 0 Then 
  40.                 Response.Redirect("/services/DhcpReservation.agp?identifier=" & Request.ReqParam("identifier"))
  41.         End If
  42.     End if
  43.     
  44.     if Request.ReqParam("action") = "Cancel" Then
  45.         Response.Redirect("/services/EditDHCP.agp")
  46.     end if
  47.     
  48.     
  49.  
  50.     if Request.ReqParam("action") = "Save" Then
  51.         On Error Resume Next
  52.         Dim Time
  53.         if Request.ReqParam("LeaseDuration") = "Unlimited" Then
  54.             Time=4294967295
  55.         Else
  56.             Time=Request.ReqParam("Day")*24*3600+Request.ReqParam("Hour")*3600+Request.ReqParam("Minute")*60
  57.         End if
  58.  
  59.         ComDhcp.ChangeSubnetProperties Request.ReqParam("identifier"),Request.ReqParam("SubnetMask"),Request.ReqParam("StartIp"),Request.ReqParam("EndIp"),Request.ReqParam("ExcludedAddress"),Time,Request.ReqParam("Name")
  60.  
  61.         If Not Err.Number = 0 Then 
  62.             ErrLine = Err.Description
  63.         else
  64.             Response.Redirect("/services/EditDHCP.agp")                    
  65.         End If
  66.         
  67.         
  68.     End If
  69.  
  70.     
  71.     If Not Err.Number = 0 Then 
  72.         ErrLine = Err.Description
  73.     End If
  74.  
  75. %>
  76.  
  77. <%
  78.     If Not Len(ErrLine) = 0 Then
  79.         Response.Write("<B><FONT COLOR=""#FF0000"">" & ErrLine & "</FONT></B><br>")
  80.     End If
  81. %>
  82.  
  83.  
  84. <%Sub EditSubnet() %>
  85.  
  86. <form method="POST" action= "/services/EditDHCPSubnest.agp">
  87.     
  88.     
  89.     <input type="hidden" size=14 name="identifier" value="<%Request.Write(Request.ReqParam("identifier"))%>" >             
  90.     <table border="1" cellpadding="0" cellspacing="0" width="100%">
  91.  
  92.     <tr>
  93.         <td width="30%" bgcolor="#183159"><strong><font face="Arial" color="#FFFFFF">
  94.             Option
  95.         </font></strong></td>
  96.         <td width="70%" bgcolor="#183159"><strong><font face="Arial" color="#FFFFFF">
  97.             Value
  98.         </font></strong></td>
  99.     </tr>    
  100.     
  101.         
  102.  
  103.  
  104.  
  105.         
  106.         <tr>
  107.         <td width="30%">Subnet Mask</td>
  108.         <td width="70%">
  109.             <input type="text" disabled size="55" name="SubnetMask" value= "<%Response.Write(ComDhcp.SubnetMask(Request.ReqParam("identifier")))%>">
  110.         </td>        
  111.         </tr>
  112.  
  113.         <tr>
  114.         <td width="30%">Start Ip</td>
  115.         <td width="70%">
  116.             <input type="text" size="55" name="StartIp" value= "<%Response.Write(ComDhcp.StartIp(Request.ReqParam("identifier")))%>">
  117.         </td>        
  118.         </tr>
  119.         
  120.         <tr>
  121.         <td width="30%">End Ip</td>
  122.         <td width="70%">
  123.                 <input type="text" size="55" name="EndIp" value= "<%Response.Write(ComDhcp.EndIp(Request.ReqParam("identifier")))%>">
  124.         </td>        
  125.         </tr>
  126.         <tr>
  127.         
  128.         <tr>
  129.         <td width="30%">Excluded address</td>
  130.         <td width="70%">
  131.                 <TEXTAREA  name="ExcludedAddress" ROWS="5" COLS="47"    CLASS="CExcludedAddress"><%Response.Write(ComDhcp.ExcludedAddreses(Request.ReqParam("identifier")))%></TEXTAREA> 
  132.             </td>        
  133.         </tr>
  134.  
  135.         
  136.  
  137.         <td width="30%">Name</td>
  138.         <td width="70%">
  139.                 <input type="text" size="55" name="Name" value="<%Response.Write(ComDhcp.SubnetName(Request.ReqParam("identifier")))%>">
  140.             </td>        
  141.         </tr>
  142.         
  143.     </table>
  144.  
  145. <p><big><strong><font face="Arial">Lease Duration</font></strong></big></p>
  146.         <table border="1" width="95%">
  147.     
  148.     
  149.     
  150.  
  151. <%
  152.     Dim Time,Minute,Hour,Day
  153.     
  154.     Time=ComDhcp.LimitedTo(Request.ReqParam("identifier"))
  155.     
  156.             Day= Time\86400
  157.             Hour=(Time - Day*86400)\3600
  158.             Minute=(Time -Day*86400-Hour*3600)\60
  159.             
  160.             
  161.  
  162.             if Time<>-1 Then    
  163.                 ch1="CHECKED"
  164.                 ch2=""
  165.             Else
  166.                 ch1=""
  167.                 ch2="CHECKED"
  168.             End if
  169.  
  170. %>
  171.         <tr>
  172.         <td width="10%">
  173.             <center>
  174.             <input type="radio" size="55" name="LeaseDuration" Value="Unlimited" <%Response.Write(ch2)%>    >
  175.             </center>
  176.             
  177.         </td>        
  178.         <td width="90%">Unlimited</td>
  179.         </tr>
  180.  
  181.         <tr>
  182.         <td width="10%">
  183.             <center>
  184.             <input type="radio" size="55" name="LeaseDuration" Value="Limited To" <%Response.Write(ch1)%> >
  185.             </center>
  186.  
  187.         </td>        
  188.         <td width="90%">
  189.             Limited To
  190.             <input type="text" size="4" name="Day" value= "<%Response.Write(Day)%>"> day(s)
  191.             <input type="text" size="4" name="Hour" value= "<%Response.Write(Hour)%>">    Hour(s)
  192.             <input type="text" size="4" name="Minute" value= "<%Response.Write(Minute)%>"> Minute(s)
  193.         </td>
  194.         </tr>
  195.     
  196.     
  197.     
  198.     </table>
  199.  
  200. <center>
  201.     <p><input type="submit" name="action" value="Save">
  202.     <input type="submit" name="action" value="DHCP Options">
  203.     <input type="submit" name="action" value="Add Reservation">
  204.     <input type="submit" name="action" value="Cancel">
  205. </center>
  206.  
  207. <%
  208. End Sub
  209. %>
  210.     
  211. </form>
  212.  
  213. <font size="1" face="Arial"><%Response.Write(GateKeeper.Version)%></font>
  214.  
  215. </body>
  216. </html>
  217.